home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
The World of Computer Software.iso
/
on891.zip
/
1203S.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-01-12
|
3KB
|
130 lines
uses crt;
var a,d,c:longint;
name:string;
fil:text;
textline:string[80];
begin
clrscr;
sound(30);
delay(200);
nosound;
delay(900);
textcolor(7);
gotoxy(10,6);
write('_____________________________________________________');
gotoxy(10,8);
write(' You have logged on THE FEDERAL DATABASE: ');
textcolor(7);
gotoxy(10,9);
write('Illegal access to this DATABASE is prohibited by law.');
gotoxy(10,10);
textcolor(115);
write(' LOG OFF IMEDIATLY IF YOU ARE NOT AUTHORIZED ');
textcolor(7);
gotoxy(10,11);
write('_____________________________________________________');
readln;
clrscr;
delay(5000);
repeat;
textcolor(122);
gotoxy(25,6);
Write(' Phonetracking (TM) enabled');
textcolor(12);
gotoxy(25,10);
write('Enter User Identification Code:');
gotoxy(25,11);
write('>');
gotoxy(27,11);
readln(name);
if name='ON891' then begin
clrscr;
gotoxy(12,12);
write('SEARCHING FEDERAL CODE NUMBERS:');
gotoxy(12,13);
textcolor(2);
write('-------------------------------');
repeat
textcolor(6);
c:=random(10300);
gotoxy(20,14);
write(c);
delay(10);
write(' - ');
write(4*c);
delay(25);
until c=1688;
gotoxy(12,14);
textcolor(1);
write('FOUND:');
delay(1026);
textcolor(14);
textbackground(1);
gotoxy(12,16);
write('Data being processed.......');
gotoxy(39,16);
delay(1000);
write('..........done.');
sound(200);
delaY(300);
delay(3000);
nosound;
textcolor(7);
textbackground(black);
gotoxy(12,18);
write('USER ID : ',name);
gotoxy(12,19);
write('SECURITY LEVEL: CODE 10');
textcolor(127);
gotoxy(12,20);
write('AFFILIATION : CIA; FBI; SECRET SERVICE');
textcolor(2);
gotoxy(12,22);
write(' PRESS ENTER ');
readln;
clrscr;
textcolor(7);
write('Switching DATABASE..............');
delay(1000);
write('.........................');
delay(1000);
write('...done.');
delay(1000);
gotoxy(1,7);
write('Requested information for user: ',name);
gotoxy(1,9);
write('United States Department of Defense Construction Project');
gotoxy(1,11);
textcolor(123);
delay(4000);
write('NO FURTHER INFORMATION AVAILABLE..........PRESS ENTER');
readln;
textcolor(7);
gotoxy(1,16);
delay(640);
write('Proceeding to log off user: ', name);
delay(1060);
gotoxy(1,18);
write('!@#023@&!');
delay(500);
gotoxy(1,19);
write('NO CARRIER');
delay(1000);
end;
if name<>'ON891' then begin
clrscr;
gotoxy(25,10);
textcolor(123);
write('INVALAID USER IDENTIFICATION ENTERED');
readln;
clrscr;
textcolor(7);
clrscr;
end;
until name='ON891';
textcolor(7);
clrscr;
end.